home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 50 / 050.d81 / mag entry 64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  29 lines
  1. 0 poke53280,2:poke53281,.
  2. 5 if a=1 then 10
  3. 6 a=1
  4. 7 print"[147]please wait while loading..."
  5. 8 load"mag entry 64.ml",8,1
  6. 10 poke53280,2:poke53281,.
  7. 20 printchr$(142)"[147]           [158]magazine entry - 64"
  8. 30 print"      u [154]- use magazine entry program"
  9. 40 print"      q [154]- quit"
  10. 50 print"      press u [154]or q[154]."
  11. 52 ifmmthen60
  12. 55 print"     [150]because of the nature of this"
  13. 56 print"   program, once you choose to use the"
  14. 57 print"   magazine entry program you must"
  15. 58 print"   re-boot to return to loadstar.[145][145][145][145][145][145][145]":mm=1
  16. 60 a=peek(203):ifa<>30anda<>62then60
  17. 70 ifa=62thengosub60000:goto50
  18. 80 print"[147]    magazine entry - 64 activated!"
  19. 90 print" enter "chr$(34)"new"chr$(34)" before entering a program"
  20. 100 sys49152:poke198,.:poke2,123:end
  21. 60000 print"[145]  [154]are you sure you want to quit? (y[154]/n[154])"
  22. 60010 a=peek(203):ifa<>25anda<>39then60010
  23. 60020 ifa=39thenprint"[145]                                      [145]":return
  24. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  25. 60040 if(er<>63)or(peek(2)=123)thenend
  26. 60050 print"[147]        returning to loadstar"
  27. 60060 print"[144]load"chr$(34)"hello connect"chr$(34)",8"
  28. 60070 print"run":poke631,13:poke632,13:poke198,2:end
  29.